home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / primat1a / frmhtmle.frm < prev    next >
Text File  |  1999-09-19  |  14KB  |  445 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  4. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  5. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  6. Begin VB.Form frmHTMLEditor 
  7.    Caption         =   "Bernie's Simple HTML Editor"
  8.    ClientHeight    =   6390
  9.    ClientLeft      =   1830
  10.    ClientTop       =   2235
  11.    ClientWidth     =   7485
  12.    Icon            =   "frmHTMLEditor.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   6390
  15.    ScaleWidth      =   7485
  16.    Begin VB.CommandButton cmdBTApproved 
  17.       Caption         =   "BT Scheme"
  18.       Height          =   495
  19.       Left            =   2400
  20.       TabIndex        =   17
  21.       Top             =   3840
  22.       Visible         =   0   'False
  23.       Width           =   1095
  24.    End
  25.    Begin MSComDlg.CommonDialog CommonDialog1 
  26.       Left            =   4560
  27.       Top             =   3600
  28.       _ExtentX        =   847
  29.       _ExtentY        =   847
  30.       _Version        =   393216
  31.    End
  32.    Begin VB.TextBox txtPicture 
  33.       Height          =   285
  34.       Left            =   3840
  35.       TabIndex        =   15
  36.       Top             =   3240
  37.       Visible         =   0   'False
  38.       Width           =   1650
  39.    End
  40.    Begin VB.CommandButton cmdPicture 
  41.       Caption         =   "?"
  42.       BeginProperty Font 
  43.          Name            =   "MS Sans Serif"
  44.          Size            =   8.25
  45.          Charset         =   0
  46.          Weight          =   700
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   255
  52.       Left            =   5520
  53.       TabIndex        =   14
  54.       Top             =   3240
  55.       Visible         =   0   'False
  56.       Width           =   255
  57.    End
  58.    Begin VB.CommandButton cmdCancelColor 
  59.       Caption         =   "&Cancel"
  60.       Height          =   495
  61.       Left            =   3600
  62.       TabIndex        =   13
  63.       Top             =   3840
  64.       Visible         =   0   'False
  65.       Width           =   1095
  66.    End
  67.    Begin VB.CommandButton cmdColorDone 
  68.       Caption         =   "&Done"
  69.       Height          =   495
  70.       Left            =   4800
  71.       TabIndex        =   12
  72.       Top             =   3840
  73.       Visible         =   0   'False
  74.       Width           =   1095
  75.    End
  76.    Begin VB.ComboBox Combo4 
  77.       Height          =   315
  78.       Left            =   3840
  79.       TabIndex        =   7
  80.       Top             =   2880
  81.       Visible         =   0   'False
  82.       Width           =   1935
  83.    End
  84.    Begin VB.ComboBox Combo3 
  85.       Height          =   315
  86.       Left            =   3840
  87.       TabIndex        =   6
  88.       Top             =   2520
  89.       Visible         =   0   'False
  90.       Width           =   1935
  91.    End
  92.    Begin VB.ComboBox Combo2 
  93.       Height          =   315
  94.       Left            =   3840
  95.       TabIndex        =   5
  96.       Top             =   2160
  97.       Visible         =   0   'False
  98.       Width           =   1935
  99.    End
  100.    Begin VB.ComboBox Combo1 
  101.       Height          =   315
  102.       Left            =   3840
  103.       TabIndex        =   4
  104.       Top             =   1800
  105.       Visible         =   0   'False
  106.       Width           =   1935
  107.    End
  108.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  109.       Height          =   1095
  110.       Left            =   120
  111.       TabIndex        =   3
  112.       Top             =   840
  113.       Visible         =   0   'False
  114.       Width           =   2415
  115.       ExtentX         =   4260
  116.       ExtentY         =   1931
  117.       ViewMode        =   0
  118.       Offline         =   0
  119.       Silent          =   0
  120.       RegisterAsBrowser=   0
  121.       RegisterAsDropTarget=   1
  122.       AutoArrange     =   0   'False
  123.       NoClientEdge    =   0   'False
  124.       AlignLeft       =   0   'False
  125.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  126.       Location        =   ""
  127.    End
  128.    Begin RichTextLib.RichTextBox rtbHTML 
  129.       Height          =   2055
  130.       Left            =   120
  131.       TabIndex        =   2
  132.       Top             =   840
  133.       Visible         =   0   'False
  134.       Width           =   1575
  135.       _ExtentX        =   2778
  136.       _ExtentY        =   3625
  137.       _Version        =   393217
  138.       ScrollBars      =   3
  139.       TextRTF         =   $"frmHTMLEditor.frx":0442
  140.    End
  141.    Begin MSComctlLib.Toolbar Toolbar1 
  142.       Align           =   1  'Align Top
  143.       Height          =   630
  144.       Left            =   0
  145.       TabIndex        =   1
  146.       Top             =   0
  147.       Width           =   7485
  148.       _ExtentX        =   13203
  149.       _ExtentY        =   1111
  150.       ButtonWidth     =   1191
  151.       ButtonHeight    =   953
  152.       Appearance      =   1
  153.       _Version        =   393216
  154.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  155.          NumButtons      =   4
  156.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  157.             Caption         =   "Editor"
  158.             Key             =   "Editor"
  159.             Description     =   "Editor"
  160.             Object.ToolTipText     =   "HTML Edit Mode"
  161.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  162.                NumButtonMenus  =   1
  163.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  164.                EndProperty
  165.             EndProperty
  166.          EndProperty
  167.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  168.             Caption         =   "Preview"
  169.             Key             =   "Preview"
  170.             Description     =   "Preview"
  171.             Object.ToolTipText     =   "Preview HTML creation"
  172.          EndProperty
  173.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  174.             Style           =   3
  175.          EndProperty
  176.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  177.             Caption         =   "Exit"
  178.             Key             =   "Exit"
  179.             Description     =   "EXIT"
  180.             Object.ToolTipText     =   "Exit"
  181.          EndProperty
  182.       EndProperty
  183.    End
  184.    Begin MSComctlLib.StatusBar StatusBar1 
  185.       Align           =   2  'Align Bottom
  186.       Height          =   375
  187.       Left            =   0
  188.       TabIndex        =   0
  189.       Top             =   6015
  190.       Width           =   7485
  191.       _ExtentX        =   13203
  192.       _ExtentY        =   661
  193.       _Version        =   393216
  194.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  195.          NumPanels       =   1
  196.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  197.          EndProperty
  198.       EndProperty
  199.    End
  200.    Begin VB.Label Label1 
  201.       Caption         =   "Background Pic:"
  202.       Height          =   255
  203.       Index           =   4
  204.       Left            =   2520
  205.       TabIndex        =   16
  206.       Top             =   3240
  207.       Visible         =   0   'False
  208.       Width           =   1215
  209.    End
  210.    Begin VB.Label Label1 
  211.       Caption         =   "Visited Link:"
  212.       Height          =   255
  213.       Index           =   3
  214.       Left            =   2520
  215.       TabIndex        =   11
  216.       Top             =   2880
  217.       Visible         =   0   'False
  218.       Width           =   855
  219.    End
  220.    Begin VB.Label Label1 
  221.       Caption         =   "Unvisited Link:"
  222.       Height          =   255
  223.       Index           =   2
  224.       Left            =   2520
  225.       TabIndex        =   10
  226.       Top             =   2520
  227.       Visible         =   0   'False
  228.       Width           =   1095
  229.    End
  230.    Begin VB.Label Label1 
  231.       Caption         =   "Text:"
  232.       Height          =   255
  233.       Index           =   1
  234.       Left            =   2520
  235.       TabIndex        =   9
  236.       Top             =   2160
  237.       Visible         =   0   'False
  238.       Width           =   615
  239.    End
  240.    Begin VB.Label Label1 
  241.       Caption         =   "Background:"
  242.       Height          =   255
  243.       Index           =